home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / icon.inc < prev    next >
Text File  |  1998-06-24  |  3KB  |  127 lines
  1. pattern iconPrivate1 is
  2.     push a6;
  3.     a6:=IconBase; jsr [a6-30];
  4.     pop a6;
  5. endp;                                                            # ICONPRIVATE1
  6.  
  7. pattern iconPrivate2 is
  8.     push a6;
  9.     a6:=IconBase; jsr [a6-36];
  10.     pop a6;
  11. endp;                                                            # ICONPRIVATE2
  12.  
  13. pattern iconPrivate3 is
  14.     push a6;
  15.     a6:=IconBase; jsr [a6-42];
  16.     pop a6;
  17. endp;                                                            # ICONPRIVATE3
  18.  
  19. pattern iconPrivate4 is
  20.     push a6;
  21.     a6:=IconBase; jsr [a6-48];
  22.     pop a6;
  23. endp;                                                            # ICONPRIVATE4
  24.  
  25. pattern FreeFreeList(_freelist) is
  26.     push a6;
  27.     a0:=_freelist;
  28.     a6:=IconBase; jsr [a6-54];
  29.     pop a6;
  30. endp;                                                            # FREEFREELIST
  31.  
  32. pattern iconPrivate5 is
  33.     push a6;
  34.     a6:=IconBase; jsr [a6-60];
  35.     pop a6;
  36. endp;                                                            # ICONPRIVATE5
  37.  
  38. pattern iconPrivate6 is
  39.     push a6;
  40.     a6:=IconBase; jsr [a6-66];
  41.     pop a6;
  42. endp;                                                            # ICONPRIVATE6
  43.  
  44. pattern AddFreeList(_freelist,_mem,_size) is
  45.     push a2\a6;
  46.     safe a0:=_freelist; a1:=_mem; a2:=_size;;
  47.     a6:=IconBase; jsr [a6-72];
  48.     pop a2\a6;
  49. endp;                                                            # ADDFREELIST
  50.  
  51. pattern GetDiskObject(_name) is
  52.     push a6;
  53.     a0:=_name;
  54.     a6:=IconBase; jsr [a6-78];
  55.     pop a6;
  56. endp;                                                            # GETDISKOBJECT
  57.  
  58. pattern PutDiskObject(_name,_diskobj) is
  59.     push a6;
  60.     safe a0:=_name; a1:=_diskobj;;
  61.     a6:=IconBase; jsr [a6-84];
  62.     pop a6;
  63. endp;                                                            # PUTDISKOBJECT
  64.  
  65. pattern FreeDiskObject(_diskobj) is
  66.     push a6;
  67.     a0:=_diskobj;
  68.     a6:=IconBase; jsr [a6-90];
  69.     pop a6;
  70. endp;                                                            # FREEDISKOBJECT
  71.  
  72. pattern FindToolType(_toolTypeArray,_typeName) is
  73.     push a6;
  74.     safe a0:=_toolTypeArray; a1:=_typeName;;
  75.     a6:=IconBase; jsr [a6-96];
  76.     pop a6;
  77. endp;                                                            # FINDTOOLTYPE
  78.  
  79. pattern MatchToolValue(_typeString,_value) is
  80.     push a6;
  81.     safe a0:=_typeString; a1:=_value;;
  82.     a6:=IconBase; jsr [a6-102];
  83.     pop a6;
  84. endp;                                                            # MATCHTOOLVALUE
  85.  
  86. pattern BumpRevision(_newname,_oldname) is
  87.     push a6;
  88.     safe a0:=_newname; a1:=_oldname;;
  89.     a6:=IconBase; jsr [a6-108];
  90.     pop a6;
  91. endp;                                                            # BUMPREVISION
  92.  
  93. pattern iconPrivate7 is
  94.     push a6;
  95.     a6:=IconBase; jsr [a6-114];
  96.     pop a6;
  97. endp;                                                            # ICONPRIVATE7
  98.  
  99. pattern GetDefDiskObject(_type) is
  100.     push a6;
  101.     d0.l:=_type;
  102.     a6:=IconBase; jsr [a6-120];
  103.     pop a6;
  104. endp;                                                            # GETDEFDISKOBJECT
  105.  
  106. pattern PutDefDiskObject(_diskObject) is
  107.     push a6;
  108.     a0:=_diskObject;
  109.     a6:=IconBase; jsr [a6-126];
  110.     pop a6;
  111. endp;                                                            # PUTDEFDISKOBJECT
  112.  
  113. pattern GetDiskObjectNew(_name) is
  114.     push a6;
  115.     a0:=_name;
  116.     a6:=IconBase; jsr [a6-132];
  117.     pop a6;
  118. endp;                                                            # GETDISKOBJECTNEW
  119.  
  120. pattern DeleteDiskObject(_name) is
  121.     push a6;
  122.     a0:=_name;
  123.     a6:=IconBase; jsr [a6-138];
  124.     pop a6;
  125. endp;                                                            # DELETEDISKOBJECT
  126.  
  127.